home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / AdmitEditor.zprx < prev    next >
Text File  |  1995-03-09  |  5KB  |  230 lines
  1. /*
  2.     $VER: Administration Editor V1.1 (13.01.95) Copyright © Nils Görs
  3.  
  4.     Dies  ist  ein  ARexx-Skript  für Zodiac's Point, mit dem man aus
  5.     Zodiac's  Point  heraus,  einige der Verwaltungsdateien editieren
  6.     kann.  Es werden z.Zt.  folgende Verwaltungsdateien unterstützt:
  7.     privCookie.zp, Cookie.zp, privHeader.zp, Header.zp, StepIn.zp,
  8.     StepOut.zp, Fkeys.zp und Usermenu.zp.
  9.  
  10.  
  11.     Sie dürfen dieses Skript beliebig kopieren, solange  es  zusammen
  12.     mit  Zodiac's Point  eingesetzt wird, aber verändern Sie es bitte
  13.     nicht ohne Erlaubnis des Autors.
  14.  
  15.  
  16.     Sie erreichen den Autor wie folgt:
  17.  
  18.        Nils Görs              Tel. : +49 (0)202 784258
  19.        Kaiserstr. 97a         EMail: N.Goers@Art-Line.wupper.de
  20.        42329 Wuppertal          oder über das ZP-Support-Brett.
  21.  
  22.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  23.  
  24.  
  25.     Hinweise zur Installation:
  26.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis von  ZP  und
  27.     fügen  sie  danach  der  Datei 'fkeys.zp'  auf Wunsch den Eintrag
  28.     "F1:SYS:Rexxc/RX ZP:Rexx/AdmitEditor.zprx %s [PARAMETER]"
  29.     hinzu. Mögliche Parameter für das Skript:
  30.     CO = lädt öffentlichen Cookie
  31.     CP = lädt privaten Cookie
  32.     HO = lädt öffentlichen Header
  33.     HP = lädt privaten Header
  34.     SI = lädt StepIn.zp Datei
  35.     SO = lädt StepOut.zp Datei
  36.     FK = lädt Fkeys.zp Datei
  37.     UM = lädt usermenu.zp Datei
  38.     Wenn Sie dem Programm einen falschen bzw. keinen  Parameter über-
  39.     geben, öffnet sich automatisch ein Filerequester mit dem Sie dann
  40.     eine Datei auswählen können.
  41.  
  42.     Alternativ können auch folgende Zeilen in die Datei  usermenus.zp
  43.     eingefügt werden:
  44.  
  45.     *öffentliche Origins
  46.     SYS:Rexxc/RX Zodiac:Rexx/AdmitEditor.zprx %s CO
  47.     *private Origins
  48.     SYS:Rexxc/RX Zodiac:Rexx/AdmitEditor.zprx %s CP
  49. */
  50.  
  51. /*******************************************************************
  52.  *      Bitte unterhalb dieser Zeile nichts mehr verändern!        *
  53.  *******************************************************************/
  54. HeimatPfad   = "Bretter"
  55. PrivCookie   = "/privCookie.zp"
  56. PubCookie    = "/Cookie.zp"
  57. PrivHeader   = "/privHeader.zp"
  58. PubHeader    = "/Header.zp"
  59. FKeyDatei    = "/Fkeys.zp"
  60. StepInDatei  = "/StepIn.zp"
  61. StepOutDatei = "/StepOut.zp"
  62. UsermenuDatei= "/Usermenus.zp"
  63. MatchFileList= "(#?cookie#?|#?header#?|Fkeys#?|Step#?|usermenus#?|alias#?|login#?|config#?)"
  64. NL = '0a'x
  65.  
  66. OPTIONS RESULTS
  67.  
  68. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  69. PARSE ARG zpPort Funktion .
  70. IF zpPort == "" THEN
  71.    zpPort = "ZPoint"
  72. ADDRESS VALUE zpPort
  73.  
  74. /* ---- hier wird überprüft, welche Datei geladen werden soll ---- */
  75. UPPER Funktion
  76. IF Funktion == "CP" THEN DO               /* Cookieliste privat */
  77.  CALL PrivatCookie
  78. END
  79. IF Funktion == "CO" THEN DO               /* Cookieliste öffentlich */
  80.  CALL PublicCookie
  81. END
  82. IF Funktion == "SI" THEN DO               /* Stepin.zp */
  83.  CALL StepIn
  84. END
  85. IF Funktion == "SO" THEN DO               /* StepOut.zp */
  86.  CALL StepOut
  87. END
  88. IF Funktion == "HP" THEN DO               /* privHeader.zp */
  89.  CALL privHeader
  90. END
  91. IF Funktion == "HO" THEN DO               /* Header.zp */
  92.  CALL Header
  93. END
  94. IF Funktion == "FK" THEN DO               /* Fkeys.zp */
  95.  CALL FKeys
  96. END
  97. IF Funktion == "UM" THEN DO               /* Fkeys.zp */
  98.  CALL UserMenu
  99. END
  100.  
  101. IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
  102.   IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  103.     EXIT
  104. CALL CheckPath
  105. CALL OpenFileRequester
  106. EXIT
  107.  
  108. /* Hier kommen die ganzen Unterroutinen */
  109.  
  110. PrivatCookie:
  111.  CALL CheckPath
  112.  IF PATH = "PATH" THEN DO
  113.     GUILOCK ON
  114.     EDITOR HeimatPfad||Privcookie
  115.     GUILOCK OFF
  116.     EXIT
  117.   END
  118.     GUILOCK ON
  119.     EDITOR Path||Privcookie
  120.     GUILOCK OFF
  121.     EXIT
  122. RETURN
  123.  
  124. PublicCookie:
  125.  CALL CheckPath
  126.  IF PATH = "PATH" THEN DO
  127.     GUILOCK ON
  128.     EDITOR HeimatPfad||Pubcookie
  129.     GUILOCK OFF
  130.     EXIT
  131.   END
  132.     GUILOCK ON
  133.     EDITOR Path||Pubcookie
  134.     GUILOCK OFF
  135.     EXIT
  136. RETURN
  137.  
  138. StepIn:
  139.  CALL CheckPath
  140.  IF PATH = "PATH" THEN DO
  141.   REQUESTNOTIFY "Stepin.zp muß sich innerhalb"NL,
  142.                 "eines Brettes befinden!";EXIT
  143.  END
  144.   GUILOCK ON
  145.   EDITOR Path||StepInDatei
  146.   GUILOCK OFF
  147.   EXIT
  148. RETURN
  149.  
  150. Stepout:
  151.  CALL CheckPath
  152.  IF PATH = "PATH" THEN DO
  153.   REQUESTNOTIFY "Stepout.zp muß sich innerhalb"NL,
  154.                 "eines Brettes befinden!";EXIT
  155.  END
  156.   GUILOCK ON
  157.   EDITOR Path||StepOutDatei
  158.   GUILOCK OFF
  159.   EXIT
  160. RETURN
  161.  
  162. privHeader:
  163.  CALL CheckPath
  164.  IF PATH = "PATH" THEN DO
  165.     GUILOCK ON
  166.     EDITOR HeimatPfad||PrivHeader
  167.     GUILOCK OFF
  168.     EXIT
  169.   END
  170.     GUILOCK ON
  171.     EDITOR Path||PrivHeader
  172.     GUILOCK OFF
  173.     EXIT
  174. RETURN
  175.  
  176. Header:
  177.  CALL CheckPath
  178.  IF PATH = "PATH" THEN DO
  179.     GUILOCK ON
  180.     EDITOR HeimatPfad||PubHeader
  181.     GUILOCK OFF
  182.     EXIT
  183.   END
  184.     GUILOCK ON
  185.     EDITOR Path||PubHeader
  186.     GUILOCK OFF
  187.     EXIT
  188. RETURN
  189.  
  190. Fkeys:
  191. GUILOCK ON
  192.  EDITOR HeimatPfad||Fkeydatei
  193.  GUILOCK OFF
  194.  EXIT
  195. RETURN
  196.  
  197. UserMenu:
  198. GUILOCK ON
  199.  EDITOR HeimatPfad||UserMenuDatei
  200.  GUILOCK OFF
  201.  EXIT
  202.  RETURN
  203.  
  204. CheckPath:
  205. WHICHLEVEL
  206. IF Result = "BOARD" then DO
  207.  BOARDINFO PATH
  208.  PATH=Result
  209. END
  210. RETURN
  211.  
  212. OpenFileRequester:
  213. IF PATH = "PATH" THEN DO
  214.  Dateiname=rtfilerequest(HeimatPfad,, "Bitte Datei auswählen",, "rt_pubscrname="zpPort "rtfi_matchpat="MatchFileList,file)
  215. IF File == 0 THEN EXIT
  216. GUILOCK ON
  217. EDITOR Dateiname
  218. GUILOCK OFF
  219.  EXIT
  220. END
  221.  Dateiname=rtfilerequest(PATH,, "Bitte Datei auswählen",, "rt_pubscrname="zpPort "rtfi_matchpat="MatchFileList,file)
  222. IF File == 0 THEN EXIT
  223. GUILOCK ON
  224. EDITOR Path||Dateiname
  225. ADDRESS VALUE zpPort
  226. GUILOCK OFF
  227.  EXIT
  228. RETURN
  229. /*EOS*/
  230.